home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Menu / MainMenu.dat < prev    next >
Encoding:
Text File  |  1994-02-24  |  13.0 KB  |  358 lines
  1. /* Main Menu */
  2.  
  3. MenuName "Main"
  4.  
  5. MenuText "Text/MainMenu"
  6.  
  7. Prompt "(\(GetTimeLeft())) \(27)[36mMain: \(27)[0m"
  8.  
  9. Unknown "\(27)[36mInvalid command: \(27)[0m'%s'"
  10.  
  11. LoadMenu "BBS:Menu/MsgMenu.menu"
  12. LoadMenu "BBS:Menu/FileMenu.menu"
  13. LoadMenu "BBS:Menu/Doors.menu"
  14.  
  15. Command "messages" (N:1) {
  16.     rexx("LogEntry Messages");
  17.     rexx("SelectSIG \(arg(1))");
  18.     if(CurrentSIG()) {
  19.         rexx("SendModem \(13)\(10)");
  20.         rexx("SelectSIGArea \(arg(2))");
  21.         menu("MsgMenu.menu");
  22.     }
  23. };
  24.  
  25. Command "files" (N:1) {
  26.     rexx("LogEntry Files");
  27.     menu("FileMenu.menu");
  28. };
  29.  
  30. Command "doors" (N:1) {
  31.     rexx("LogEntry Doors");
  32.     menu("Doors.menu");
  33. };
  34.  
  35. Command "?" {
  36.     rexx("SendASCII Text/MainMenu.txt");
  37. };
  38.  
  39. Command "??" (G:) {
  40.     rexx("SendASCII Text/GlobalMenu.txt");
  41. };
  42.  
  43. Command "lm" (G:) {
  44.     rexx("ListMarkedFiles");
  45. };
  46.  
  47. Command "lmm" (G:) {
  48.     rexx("ListMarkedMsg");
  49. };
  50.  
  51. Command "cm" (G:) {
  52.     rexx("ClearMarkedFiles");
  53.     rexx("SendModem \(27)[32mMarked files cleared\(13)\(10)\(27)[0m");
  54. };
  55.  
  56. Command "cmm" (G:) {
  57.     rexx("ClearMarkedMsg");
  58.     rexx("SendModem \(27)[32mMarked messages cleared\(13)\(10)\(27)[0m");
  59. };
  60.  
  61. Command "chat" (N:1 G:) {
  62.     rexx("LogEntry Paging SysOp");
  63.     rexx("PageSysOp");
  64. };
  65.  
  66. Command "shell" (N:2 G:) {
  67.     if(GetMask() & 4) {
  68.         rexx("LogEntry Shell");
  69.         rexx("SendModem \(13)\(10)");
  70.         rexx("SetStatus Shell");
  71.         dos("NewShell TECHIO:\(node())");
  72.         rexx("WaitForIO");
  73.         rexx("SendModem \(13)\(10)");
  74.     } else {
  75.         rexx("LogEntry Shell - access failure");
  76.         rexx("SendModem \(27)[31mNo access\(13)\(10)\(27)[0m");
  77.     }
  78. };
  79.  
  80. Command "goodbye" (N:1 G:) {
  81.     if(lower(arg(1)) == "y") quit;
  82.     if(GetYesNo("\(27)[32mGoodbye\(27)[36m - Are you sure? \(27)[0m", 0, 1)) {
  83.         rexx("SendModem \(13)\(10)\(13)\(10)");
  84.         quit;
  85.     }
  86.     rexx("SendModem \(13)\(10)");
  87. };
  88.  
  89. Command "g!" (G:) {
  90.     rexx("SendModem \(13)\(10)");
  91.     rexx("Disconnect");
  92.     quit;
  93. };
  94.  
  95. Command "who" (N:2 G:) {
  96.     rexx("LogEntry Who's online");
  97.     rexx("SendModem \(27)[33mNode  User                            Status\(13)\(10)");
  98.     rexx("SendModem \(27)[31m---------------------------------------------------------\(13)\(10)\(27)[0m");
  99.     $an = 0;
  100.     while($an <= Con_MaxNode()) {
  101.         if(Con_LineActive($an) != "") rexx("SendModem \(str($an, 1, 6))\(str(Con_LineUser($an), 1, 32))\(Con_LineStatus($an))\(13)\(10)");
  102.         $an = $an + 1;
  103.     }
  104.     rexx("SendModem \(13)\(10)");
  105.     GetHotkey("\(27)[32mPress any key to continue...\(27)[0m");
  106.     rexx("SendModem \(13)\(10)");
  107. };
  108.  
  109. Command "mail" (N:2 G:) {
  110.     rexx("LogEntry Sending mail");
  111.     $oldarea = GetMsgArea();
  112.     rexx("ChgMsgArea 1");        /* Edit here to change the private area! */
  113.     rexx("WriteMsg");
  114.     rexx("ChgMsgArea \($oldarea)");
  115. };
  116.  
  117. Command "mcheck" (N:2 G:) {
  118.     rexx("SendModem \(27)[33mChecking for mail...\(27)[0m");
  119.     $oldarea = GetMsgArea();
  120.     if(MessageCheck()) {
  121.         if(GetYesNo("\(27)[36mRead these messages now? \(27)[0m", 1, 1)) {
  122.             rexx("SendModem \(13)\(10)\(13)\(10)\(27)[33mReading mail\(13)\(10)\(13)\(10)\(27)[0m");
  123.             rexx("SetStatus Reading messages");
  124.             rexx("ReadMarked");
  125.         }
  126.     } else rexx("SendModem \(13)\(10)\(13)\(10)No new mail\(13)\(10)");
  127. };
  128.  
  129. Command "info" (G: N:2) {
  130.     rexx("LogEntry Reading info");
  131.     rexx("SendASCII Text/Info.txt");
  132.     rexx("SendModem \(13)\(10)");
  133.     GetHotkey("\(27)[32mPress any key to continue...\(27)[0m");
  134.     rexx("SendModem \(13)\(10)");
  135. };
  136.  
  137. Command "dl" (G:) {
  138.     rexx("LogEntry Downloading marked files");
  139.     rexx("Download MARKEDONLY");
  140. };
  141.  
  142. Command "ulist" (N:2 G:) {
  143.     rexx("LogEntry Listing users");
  144.     rexx("SendModem \(27)[33mList of users:\(13)\(10)\(27)[0m\(13)\(10)");
  145.     dos("list >t:bbsuserst.txt\(node()) BBS:User/~(Preset) DIRS LFORMAT \"%-3N %C\"");
  146.     dos("sort from t:bbsuserst.txt\(node()) to t:bbsusers.txt\(node()) numeric");
  147.     rexx("SendASCII t:bbsusers.txt\(node())");
  148.     dos("delete t:bbsusers.txt\(node()) t:bbsuserst.txt\(node()) quiet");
  149.     rexx("SendModem \(13)\(10)");
  150.     GetHotkey("\(27)[32mPress any key to continue...\(27)[0m");
  151.     rexx("SendModem \(13)\(10)");
  152. };
  153.  
  154. Command "msg" (G:) {
  155.     $text = "";
  156.     $dst = "";
  157.     if(str(arg(1), 1, 1) == "-") {
  158.         $aid = lower(str(arg(1), 2, 1));
  159.         if($aid == "n") $dst = str(arg(1), 3, len(arg(1)) - 2);
  160.         else if($aid == "a") $dst = "A";
  161.         else {
  162.             rexx("SendModem \(27)[33mUsage: \(27)[0mmsg \(27)[36m[[-(n#|a)] <text>]\(13)\(10)\(27)[0m");
  163.             break;
  164.         }
  165.         $text = arg(2);
  166.         if($text != "") {
  167.             $an = 3;
  168.             while(arg($an) != "") {
  169.                 $text = "\($text) \(arg($an))";
  170.                 $an = $an + 1;
  171.             }
  172.         }
  173.     } else {
  174.         while($dst == "") {
  175.             $dst = upper(AskInput("\(27)[32mSend message to node # ('l' to list, 'a' for all): \(27)[0m", "", 4));
  176.             if($dst == "") $dst = "Q";
  177.             if($dst == "L") {
  178.                 rexx("SendModem \(13)\(10)\(27)[33mNode  User                            Status\(13)\(10)");
  179.                 rexx("SendModem \(27)[31m---------------------------------------------------------\(13)\(10)\(27)[0m");
  180.                 $ln = 0;
  181.                 while($ln <= Con_MaxNode()) {
  182.                     if(Con_LineActive($ln) != "") rexx "SendModem \(str($ln, 1, 6))\(str(Con_LineUser($ln), 1, 32))\(Con_LineStatus($ln))\(13)\(10)";
  183.                     $ln = $ln + 1;
  184.                 }
  185.                 rexx("SendModem \(13)\(10)");
  186.                 $dst = "";
  187.             }
  188.         }
  189.     }
  190.     if($dst != "Q") {
  191.         if($dst != "A") $dstname = Con_LineActive($dst);
  192.         else $dstname = "dummy";
  193.         if(($dst == node()) || ($dstname == "")) rexx("SendModem \(13)\(10)\(27)[31mInvalid node number\(27)[0m\(13)\(10)");
  194.         else {
  195.             if($text == "") {
  196.                 rexx("SendModem \(13)\(10)");
  197.                 $text = AskInput("\(27)[32mEnter message text: \(27)[0m", "", 256);
  198.             }
  199.             if($text == "") break;
  200.             if($dst == "A") {
  201.                 $ln = 0;
  202.                 while($ln <= Con_MaxNode()) {
  203.                     if((Con_LineActive($ln) != "") && ($ln != node())) {
  204.                         $usrname = GetUserName();
  205.                         rxport(Con_LineActive($ln));
  206.                         rexx("ShowMessage \(27)[36mMessage from \(27)[33m\($usrname)\(27)[36m on node \(27)[0m\(node()):\(13)\(10)\(13)\(10)\($text)");
  207.                         rxport(Con_LineActive(node()));
  208.                         rexx("SendModem \(13)\(10)\(27)[33mMessage sent to \(27)[36m\(Con_LineUser($ln)) \(27)[33mon node \(27)[36m\($ln)\(13)\(10)\(27)[0m");
  209.                         rexx("LogEntry Node message sent to node \($ln)");
  210.                     }
  211.                     $ln = $ln + 1;
  212.                 }
  213.             } else {
  214.                 $dstname = Con_LineActive($dst);
  215.                 if($dstname != "") {
  216.                     $usrname = GetUserName();
  217.                     rxport($dstname);
  218.                     rexx("ShowMessage \(27)[36mMessage from \(27)[33m\($usrname)\(27)[36m on node \(27)[0m\(node()):\(13)\(10)\(13)\(10)\($text)");
  219.                     rxport(Con_LineActive(node()));
  220.                     rexx("SendModem \(13)\(10)\(27)[33mMessage sent to \(27)[36m\(Con_LineUser($dst)) \(27)[33mon node \(27)[36m\($dst)\(13)\(10)\(27)[0m");
  221.                     rexx("LogEntry Node message sent to node \($ln)");
  222.                 }
  223.             }
  224.         }
  225.     }
  226. };
  227.  
  228. Command "ts" (G:) {
  229.     dos("BBS:Rexx/TSet.rexx \(node())");
  230. };
  231.  
  232. Command "us" (G:) {
  233.     dos("BBS:Rexx/USet.rexx \(node())");
  234. };
  235.  
  236. Command "qs" (G:) {
  237.     dos("BBS:Rexx/QSet.rexx \(node())");
  238. };
  239.  
  240. Command "ws" (G:) {
  241.     dos("BBS:Rexx/WSet.rexx \(node())");
  242. };
  243.  
  244. Command "ba" (G:) {
  245.     if(lower(arg(1)) == "a") SetUserMisc("QWKASYNC", 1);
  246.     else if(lower(arg(1)) == "s") SetUserMisc("QWKASYNC", 0);
  247.     if(GetUserMisc("QWKASYNC")) {
  248.         rexx("LogEntry Packing QWK messages asynchronously");
  249.         dos("run <>NIL: BBS:Bin/TechQWK \(node()) O BBS:Cfg/TechQWK.Cfg");
  250.         rexx("SendModem \(27)[33mPacking messages asynchronously, you will be informed on completion\(13)\(10)\(27)[0m");
  251.     } else {
  252.         rexx("LogEntry Downloading QWK messages");
  253.         dos("BBS:Bin/TechQWK \(node()) O BBS:Cfg/TechQWK.Cfg");
  254.         rexx("SendModem \(13)\(10)");
  255.         GetHotkey("\(27)[32mPress any key to start sending...\(27)[0m");
  256.         rexx("SendModem \(13)\(10)\(13)\(10)");
  257.         rexx("MarkAnyFile \(GetUserPath(GetUserName()))/TECHDEVC.QWK");
  258.         rexx("Download MARKEDONLY");
  259.     }
  260. };
  261.  
  262. Command "qu" (G:) {
  263.     if(lower(arg(1)) == "a") SetUserMisc("QWKASYNC", 1);
  264.     else if(lower(arg(1)) == "s") SetUserMisc("QWKASYNC", 0);
  265.     rexx("LogEntry Uploading QWK messages");
  266.     dos("delete \(GetUserPath(GetUserName()))/TECHDEVC.REP quiet");
  267.     rexx("\(13)\(10)\(27)[33mStart sending TECHDEVC.REP\(13)\(10)\(13)\(10)\(27)[0m");
  268.     if(ReceiveFiles()) {
  269.         if(GetUserMisc("QWKASYNC")) {
  270.             dos("run <>NIL: BBS:Bin/TechQWK \(node()) I BBS:Cfg/TechQWK.Cfg");
  271.             rexx("SendModem \(27)[33mProcessing replies asynchronously\(13)\(10)\(27)[0m");
  272.         } else dos("BBS:Bin/TechQWK \(node()) I BBS:Cfg/TechQWK.Cfg");
  273.     } else rexx("SendModem \(13)\(10)\(13)\(10)\(27)[31mTransfer failed\(13)\(10)\(27)[0m");
  274. };
  275.  
  276. Command "bw" (G:) {
  277.     if(lower(arg(1)) == "a") SetUserMisc("WWFASYNC", 1);
  278.     else if(lower(arg(1)) == "s") SetUserMisc("WWFASYNC", 0);
  279.     if(GetUserMisc("WWFASYNC")) {
  280.         rexx("LogEntry Packing WWF messages asynchronously");
  281.         dos("run <>NIL: BBS:Bin/TechWWF \(node()) O BBS:Cfg/TechWWF.Cfg");
  282.         rexx("SendModem \(27)[33mPacking messages asynchronously, you will be informed on completion\(13)\(10)\(27)[0m");
  283.     } else {
  284.         rexx("LogEntry Downloading WWF messages");
  285.         dos("BBS:Bin/TechWWF \(node()) O BBS:Cfg/TechWWF.Cfg");
  286.         rexx("SendModem \(13)\(10)");
  287.         GetHotkey("\(27)[32mPress any key to start sending...\(27)[0m");
  288.         rexx("SendModem \(13)\(10)\(13)\(10)");
  289.         rexx("MarkAnyFile \(GetUserPath(GetUserName()))/TECHDEVC.WWF");
  290.         rexx("Download MARKEDONLY");
  291.     }
  292.  
  293. };
  294.  
  295. Command "wu" (G:) {
  296.     if(lower(arg(1)) == "a") SetUserMisc("WWFASYNC", 1);
  297.     else if(lower(arg(1)) == "s") SetUserMisc("WWFASYNC", 0);
  298.     rexx("LogEntry Uploading wwf messages");
  299.     dos("delete \(GetUserPath(GetUserName()))/TECHDEVC.RRF quiet");
  300.     rexx("\(13)\(10)\(27)[33mStart sending TECHDEVC.RRF\(13)\(10)\(13)\(10)\(27)[0m");
  301.     if(ReceiveFiles()) {
  302.         if(GetUserMisc("WWFASYNC")) {
  303.             dos("run <>NIL: BBS:Bin/TechWWF \(node()) I BBS:Cfg/TechWWF.Cfg");
  304.             rexx("SendModem \(27)[33mProcessing replies asynchronously\(13)\(10)\(27)[0m");
  305.         } else dos("BBS:Bin/TechWWF \(node()) I BBS:Cfg/TechWWF.Cfg");
  306.     } else rexx("SendModem \(13)\(10)\(13)\(10)\(27)[31mTransfer failed\(13)\(10)\(27)[0m");
  307. };
  308.  
  309. Command "status" (N:2 G:) {
  310.     if(GetUserAccess() < 5) $acc = "New";
  311.     else if(GetUserAccess() < 20) $acc = "Normal";
  312.     else if(GetUserAccess() < 50) $acc = "Extended";
  313.     else $acc = "Custom";
  314.     rexx("SendModem \(27)[36m     Access: \(27)[33m\(GetUserAccess()) (\($acc))\(13)\(10)\(13)\(10)");
  315.     rexx("SendModem \(27)[36m   Messages: \(27)[33m\(GetMessages())\(13)\(10)\(13)\(10)");
  316.     rexx("SendModem \(27)[36m   Uploaded: \(27)[33m\(GetFilesUploaded()) files, \(GetBytesUploaded()) bytes\(13)\(10)");
  317.     rexx("SendModem \(27)[36m Downloaded: \(27)[33m\(GetFilesDownloaded()) files, \(GetBytesDownloaded()) bytes\(13)\(10)");
  318.     $files = GetFilesLeft();
  319.     if($files < 0) $files = "Unlimited";
  320.     $bytes = GetBytesLeft();
  321.     if($bytes < 0) $bytes = "Unlimited";
  322.     rexx("SendModem \(27)[36m  Remaining: \(27)[33m\($files) files, \($bytes) bytes\(13)\(10)");
  323.     rexx("SendModem \(27)[36m      Ratio: \(27)[33m1:\(GetFileRatio()) files, 1:\(GetByteRatio()) bytes\(13)\(10)\(13)\(10)");
  324.     $time = GetTimeDay();
  325.     if($time < 0) $time = "Unlimited";
  326.     $tcall = GetTimeCall();
  327.     if($tcall < 0) $tcall = $time;
  328.     rexx("SendModem \(27)[36m       Time: \(27)[33m\($time) minutes/day, \($tcall) minutes/call\(13)\(10)");
  329.     $calls = GetCallsDay();
  330.     if($calls < 0) $calls = "Unlimited";
  331.     rexx("SendModem \(27)[36m      Calls: \(27)[33m\($calls) calls/day, \(GetTotalCalls()) calls total\(13)\(10)");
  332.     $tleft = GetTimeLeft();
  333.     if($tleft == "-") $tleft = "Unlimited";
  334.     $time = GetUserTimeLeft();
  335.     if($time < 0) $time = $tleft;
  336.     else $time = $time + $tleft;
  337.     $calls = GetCallsLeft();
  338.     if($calls < 0) $calls = "Unlimited";
  339.     rexx("SendModem \(27)[36m  Remaining: \(27)[33m\($tleft) minutes (\($time) today), \($calls) calls\(13)\(10)\(13)\(10)");
  340.     rexx("SendModem \(27)[36m      Other: \(27)[33m");
  341.     $mask = GetMask();
  342.     if($mask & 8) rexx("SendModem GigaNet, ");
  343.     if($mask & 2) rexx("SendModem GigaNet SysOp, ");
  344.     if($mask & 1) rexx("SendModem Registered TechnoBBS, ");
  345.     if($mask & 4) rexx("SendModem Shell, ");
  346.     rexx("SendModem \(13)\(10)\(13)\(10)");
  347.     GetHotkey("\(27)[32mPress any key to continue...\(27)[0m");
  348.     rexx("SendModem \(13)\(10)");
  349. };
  350.  
  351. Command "clear" (G:) {
  352.     rexx("SendModem \(12)");
  353. };
  354.  
  355. Command "cls" (G:) {
  356.     rexx("SendModem \(12)");
  357. };
  358.